home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / STARTUP.SAB < prev    next >
Text File  |  1991-09-18  |  2KB  |  108 lines
  1. CLS
  2. SET MESSAGES OFF
  3. SET V DRC TO NO
  4. SET V NOTES TO NO
  5. SET V VR TO NO
  6. SET V ATTN TO No
  7. SET V MOU TO No
  8. SET V PDR TO No
  9. set v plc to No
  10. set v phl to No
  11. OPEN RENT
  12. LABEL WRITE
  13. display cp.dis
  14. write "ATTN.SAB" at 2,36
  15. WRITE "ENTER 'Y' FOR EACH REPORT AND PROCEDURE REQUESTED" AT 5,15
  16. WRITE "1.  Print Daily Record Calls..... ------------>" AT 7,16
  17. WRITE "2.  Print Notes.................. ------------>" AT 9,16
  18. WRITE "3.  Print Vacant List............ ------------>" AT 11,16
  19. WRITE "4.  Print Rent ATTN Report....... ------------>" AT 13,16
  20. WRITE "5.  Perform Monthly Update....... ------------>" AT 15,16
  21. WRITE "6.  Post Late Charges on Accounts ------------>" AT 17,16
  22. WRITE "7.  Print Current Phone List..... ------------>" at 19,16
  23. write "8.    -- not yet installed --     ------------>" at 21,16
  24. write "N" at 7,65
  25. write "N" at 9,65
  26. write "N" at 11,65
  27. write "N" at 13,65
  28. write "N" at 15,65
  29. write "N" at 17,65
  30. write "N" at 19,65
  31. write "N" AT 21,65
  32. FILLIN DRC   USING "" AT 7,65
  33. FILLIN NOTES USING "" AT 9,65
  34. FILLIN VR    USING "" AT 11,65
  35. FILLIN ATTN  USING "" AT 13,65
  36. FILLIN MOU   USING "" AT 15,65
  37. FILLIN plc   USING "" AT 17,65
  38. fillin phl   using "" at 19,65
  39. fillin nyc   using "" at 21,65
  40. LABEL PRO1
  41.      IF DRC = "Y" OR DRC = "YES" THEN
  42.         GOTO DRC
  43.      else
  44.      goto pro2
  45.      ENDIF
  46. LABEL PRO2
  47.      IF NOTES = "Y" OR NOTES = "YES" THEN
  48.         GOTO NOTES
  49.      else
  50.     goto pro3
  51.      ENDIF
  52. LABEL PRO3
  53.      IF VR = "Y" OR VR = "YES" THEN
  54.         GOTO VR
  55.         else
  56.         goto pro4
  57.      ENDIF
  58. LABEL PRO4
  59.      IF ATTN = "Y" OR ATTN = "YES" THEN
  60.         GOTO ATTN
  61.         else
  62.         goto pro5
  63.      ENDIF
  64. LABEL PRO5
  65.      IF MOU = "Y" OR MOU = "YES" THEN
  66.         GOTO MOU
  67.      ENDIF
  68. label pro6
  69.      if plc = "y" or plc = "yes" then
  70.         goto late
  71.       endif
  72. label pro7
  73.      if phl = "y" or phl = "yes" then
  74.         goto phone
  75.      endif
  76. GOTO END
  77. LABEL DRC
  78.     RUN RECCALL.SAB
  79.     GOTO PRO2
  80. LABEL NOTES
  81.     RUN NOTES.SAB
  82.     GOTO PRO3
  83. LABEL VR
  84.     RUN UNOCCUP.SAB
  85.     GOTO PRO4
  86. LABEL ATTN
  87.     RUN ATTN.SAB
  88.     GOTO PRO5
  89. LABEL MOU
  90.     RUN MOUPDA.SAB
  91.     goto pro6
  92. label late
  93.      run latechg.sab
  94.      goto pro7
  95. label phone
  96.      out pri
  97.      print fonelist whe lim = 1
  98.      out scr
  99. LABEL END
  100. CLS
  101. WRITE "STARTUP PROCEDURES COMPLETED -- PRESS ANY KEY TO CONTINUE" AT 12,10
  102. PAUSE
  103. SET MESSAGES OFF
  104. DELETE C:*.$$$
  105. RUN master.sab
  106.  
  107.  
  108.